home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
a_utils
/
_archvrs
/
mac
/
uutol232.bin
/
uutool 232.rsrc
/
CODE_4.txt
< prev
next >
Wrap
Text File
|
1994-02-02
|
23KB
|
416 lines
# near model CODE resource
# entry label at 0x0000
export_66:
entry:
00000000 4E56 0000 link A6, 0
00000004 48E7 0338 movem.l -[A7], D6,D7,A2,A3,A4
00000008 286E 0010 movea.l A4, [A6 + 0x10]
0000000C 266E 000C movea.l A3, [A6 + 0xC]
00000010 246E 0008 movea.l A2, [A6 + 0x8]
00000014 7E00 moveq.l D7, 0x00
00000016 2F0C move.l -[A7], A4
00000018 A873 trap SetPort
0000001A 0C53 0006 cmpi.w [A3], 0x6
0000001E 660C bne +0xE /* 0000002C */
00000020 3F3C 0001 move.w -[A7], 0x1
00000024 2F0C move.l -[A7], A4
00000026 4EAD 0072 jsr [A5 + 0x72]
0000002A 5C8F addq.l A7, 6
label0000002C:
0000002C 0C53 0003 cmpi.w [A3], 0x3
00000030 664C bne +0x4E /* 0000007E */
00000032 3C2B 0004 move.w D6, [A3 + 0x4]
00000036 0246 00FF andi.w D6, 0xFF
0000003A 082B 0000 000E btst.b [A3 + 0xE], 0x0
00000040 6712 beq +0x14 /* 00000054 */
00000042 3006 move.w D0, D6
00000044 6B26 bmi +0x28 /* 0000006C */
00000046 0440 002E subi.w D0, 0x2E /* '.' */
0000004A 6702 beq +0x4 /* 0000004E */
0000004C 601E bra +0x20 /* 0000006C */
label0000004E:
0000004E 34BC 0001 move.w [A2], 0x1
00000052 6018 bra +0x1A /* 0000006C */
label00000054:
00000054 3006 move.w D0, D6
00000056 6B14 bmi +0x16 /* 0000006C */
00000058 0440 001B subi.w D0, 0x1B
0000005C 670A beq +0xC /* 00000068 */
0000005E 6A0C bpl +0xE /* 0000006C */
00000060 0440 FFF2 subi.w D0, 0xFFF2
00000064 6702 beq +0x4 /* 00000068 */
00000066 6004 bra +0x6 /* 0000006C */
label00000068:
00000068 34BC 0001 move.w [A2], 0x1
label0000006C:
0000006C 0C52 0001 cmpi.w [A2], 0x1
00000070 660C bne +0xE /* 0000007E */
00000072 7E01 moveq.l D7, 0x01
00000074 3F12 move.w -[A7], [A2]
00000076 2F0C move.l -[A7], A4
00000078 4EAD 007A jsr [A5 + 0x7A]
0000007C 5C8F addq.l A7, 6
label0000007E:
0000007E 1D47 0014 move.b [A6 + 0x14], D7
00000082 4CDF 1CC0 movem.l A4,A3,A2,D7,D6, [A7]+
00000086 4E5E unlink A6
00000088 205F movea.l A0, [A7]+
0000008A 4FEF 000C lea.l A7, [A7 + 0xC]
0000008E 4ED0 jmp [A0]
fn00000090:
00000090 4E56 FF94 link A6, -0x006C
00000094 2F07 move.l -[A7], D7
00000096 4267 clr.w -[A7]
00000098 2F2E 000C move.l -[A7], [A6 + 0xC]
0000009C 486E FFAE pea.l [A6 - 0x52]
000000A0 4EAD 011A jsr [A5 + 0x11A]
000000A4 3E1F move.w D7, [A7]+
000000A6 4A47 tst.w D7
000000A8 6704 beq +0x6 /* 000000AE */
000000AA 3007 move.w D0, D7
000000AC 6070 bra +0x72 /* 0000011E */
label000000AE:
000000AE 41ED FC9C lea.l A0, [A5 - 0x364]
000000B2 2D48 FFAA move.l [A6 - 0x56], A0
000000B6 41EE FF98 lea.l A0, [A6 - 0x68]
000000BA 7020 moveq.l D0, 0x20
000000BC A260 trap FSDispatch/HFSDispatch, flags=2
000000BE 3E00 move.w D7, D0
000000C0 4A47 tst.w D7
000000C2 6704 beq +0x6 /* 000000C8 */
000000C4 3007 move.w D0, D7
000000C6 6056 bra +0x58 /* 0000011E */
label000000C8:
000000C8 42AE FFA4 clr.l [A6 - 0x5C]
000000CC 2D6E 000C FFAA move.l [A6 - 0x56], [A6 + 0xC]
000000D2 426E FFB2 clr.w [A6 - 0x4E]
000000D6 2D6E 0008 FFCC move.l [A6 - 0x34], [A6 + 0x8]
000000DC 4267 clr.w -[A7]
000000DE 486E FF98 pea.l [A6 - 0x68]
000000E2 4227 clr.b -[A7]
000000E4 4EAD 0162 jsr [A5 + 0x162]
000000E8 3E1F move.w D7, [A7]+
000000EA 4A47 tst.w D7
000000EC 6704 beq +0x6 /* 000000F2 */
000000EE 3007 move.w D0, D7
000000F0 602C bra +0x2E /* 0000011E */
label000000F2:
000000F2 4227 clr.b -[A7]
000000F4 A99B trap SetResLoad
000000F6 4267 clr.w -[A7]
000000F8 3F2E FFAE move.w -[A7], [A6 - 0x52]
000000FC 2F2E FFFC move.l -[A7], [A6 - 0x4]
00000100 2F2E 000C move.l -[A7], [A6 + 0xC]
00000104 1F3C 0004 move.b -[A7], 0x4
00000108 4EAD 00D2 jsr [A5 + 0xD2]
0000010C 206E 0010 movea.l A0, [A6 + 0x10]
00000110 309F move.w [A0], [A7]+
00000112 0C50 FFFF cmpi.w [A0], 0xFFFF
00000116 6604 bne +0x6 /* 0000011C */
00000118 70FF moveq.l D0, 0xFFFFFFFF
0000011A 6002 bra +0x4 /* 0000011E */
label0000011C:
0000011C 7000 moveq.l D0, 0x00
label0000011E:
0000011E 2E1F move.l D7, [A7]+
00000120 4E5E unlink A6
00000122 4E75 rts
fn00000124:
00000124 4E56 FFF4 link A6, -0x000C
00000128 7001 moveq.l D0, 0x01
0000012A D0AE 0008 add.l D0, [A6 + 0x8]
0000012E 2D40 FFF4 move.l [A6 - 0xC], D0
00000132 4267 clr.w -[A7]
00000134 2F3C 4652 4546 move.l -[A7], 0x46524546 /* 'FREF' */
0000013A A80D trap Count1Resources
0000013C 3D5F FFF8 move.w [A6 - 0x8], [A7]+
00000140 6700 0086 beq +0x88 /* 000001C8 */
label00000144:
00000144 42A7 clr.l -[A7]
00000146 2F3C 4652 4546 move.l -[A7], 0x46524546 /* 'FREF' */
0000014C 3F2E FFF8 move.w -[A7], [A6 - 0x8]
00000150 A80E trap Get1IndResource/Get1IxResource
00000152 2D5F FFFC move.l [A6 - 0x4], [A7]+
00000156 4267 clr.w -[A7]
00000158 A9AF trap ResError
0000015A 3D5F FFFA move.w [A6 - 0x6], [A7]+
0000015E 6706 beq +0x8 /* 00000166 */
00000160 302E FFFA move.w D0, [A6 - 0x6]
00000164 6064 bra +0x66 /* 000001CA */
label00000166:
00000166 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000016A A9A2 trap LoadResource
0000016C 4267 clr.w -[A7]
0000016E A9AF trap ResError
00000170 3D5F FFFA move.w [A6 - 0x6], [A7]+
00000174 6706 beq +0x8 /* 0000017C */
00000176 302E FFFA move.w D0, [A6 - 0x6]
0000017A 604E bra +0x50 /* 000001CA */
label0000017C:
0000017C 206E FFFC movea.l A0, [A6 - 0x4]
00000180 2250 movea.l A1, [A0]
00000182 206E FFF4 movea.l A0, [A6 - 0xC]
00000186 10D9 move.b [A0]+, [A1]+
00000188 10D9 move.b [A0]+, [A1]+
0000018A 10D9 move.b [A0]+, [A1]+
0000018C 10D9 move.b [A0]+, [A1]+
0000018E 10FC 002C move.b [A0]+, 0x2C /* ',' */
00000192 10FC 0020 move.b [A0]+, 0x20 /* ' ' */
00000196 2D48 FFF4 move.l [A6 - 0xC], A0
0000019A 2F2E FFFC move.l -[A7], [A6 - 0x4]
0000019E A9A3 trap ReleaseResource
000001A0 536E FFF8 subq.w [A6 - 0x8], 1
000001A4 669E bne -0x60 /* 00000144 */
000001A6 202E FFF4 move.l D0, [A6 - 0xC]
000001AA 90AE 0008 sub.l D0, [A6 + 0x8]
000001AE 5740 subq.w D0, 3
000001B0 3D40 FFF8 move.w [A6 - 0x8], D0
000001B4 0C40 00FA cmpi.w D0, 0xFA
000001B8 6F06 ble +0x8 /* 000001C0 */
000001BA 486D FCA4 pea.l [A5 - 0x35C]
000001BE ABFF trap DebugStr
label000001C0:
000001C0 206E 0008 movea.l A0, [A6 + 0x8]
000001C4 10AE FFF9 move.b [A0], [A6 - 0x7]
label000001C8:
000001C8 7000 moveq.l D0, 0x00
label000001CA:
000001CA 4E5E unlink A6
000001CC 4E75 rts
fn000001CE:
000001CE 4E56 FE2A link A6, -0x01D6
000001D2 48E7 0708 movem.l -[A7], D5,D6,D7,A4
000001D6 4267 clr.w -[A7]
000001D8 A994 trap CurResFile
000001DA 3E1F move.w D7, [A7]+
000001DC 42A7 clr.l -[A7]
000001DE 3F3C 0086 move.w -[A7], 0x86
000001E2 486E FF56 pea.l [A6 - 0xAA]
000001E6 4878 FFFF pea.l [0xFFFFFFFF]
000001EA A97C trap GetNewDialog
000001EC 285F movea.l A4, [A7]+
000001EE 200C move.l D0, A4
000001F0 6708 beq +0xA /* 000001FA */
000001F2 4267 clr.w -[A7]
000001F4 A9AF trap ResError
000001F6 4A5F tst.w [A7]+
000001F8 6706 beq +0x8 /* 00000200 */
label000001FA:
000001FA 486D FCAA pea.l [A5 - 0x356]
000001FE ABFF trap DebugStr
label00000200:
00000200 2F0C move.l -[A7], A4
00000202 A873 trap SetPort
00000204 426E FF40 clr.w [A6 - 0xC0]
00000208 6028 bra +0x2A /* 00000232 */
label0000020A:
0000020A 2F0C move.l -[A7], A4
0000020C 7002 moveq.l D0, 0x02
0000020E D06E FF40 add.w D0, [A6 - 0xC0]
00000212 3F00 move.w -[A7], D0
00000214 486E FF42 pea.l [A6 - 0xBE]
00000218 302E FF40 move.w D0, [A6 - 0xC0]
0000021C 204E movea.l A0, A6
0000021E 48C0 ext.l D0
00000220 E588 lsl D0, 2
00000222 D1C0 add.l A0, D0
00000224 4868 FF4A pea.l [A0 - 0xB6]
00000228 486E FF42 pea.l [A6 - 0xBE]
0000022C A98D trap GetDialogItem/GetDItem
0000022E 526E FF40 addq.w [A6 - 0xC0], 1
label00000232:
00000232 0C6E 0003 FF40 cmpi.w [A6 - 0xC0], 0x3
00000238 6DD0 blt -0x2E /* 0000020A */
0000023A 4267 clr.w -[A7]
0000023C 2F2E 0008 move.l -[A7], [A6 + 0x8]
00000240 3F2E 000C move.w -[A7], [A6 + 0xC]
00000244 486E FF2E pea.l [A6 - 0xD2]
00000248 4EAD 0112 jsr [A5 + 0x112]
0000024C 3C1F move.w D6, [A7]+
0000024E 4A46 tst.w D6
00000250 6722 beq +0x24 /* 00000274 */
00000252 486E FE2E pea.l [A6 - 0x1D2]
00000256 2F3C 0014 0080 move.l -[A7], 0x140080
0000025C 4EAD 017A jsr [A5 + 0x17A]
00000260 42A7 clr.l -[A7]
00000262 3F06 move.w -[A7], D6
00000264 486E FE2E pea.l [A6 - 0x1D2]
00000268 4EAD 0082 jsr [A5 + 0x82]
0000026C 2E8C move.l [A7], A4
0000026E A982 trap CloseDialog
00000270 6000 01D0 bra +0x1D2 /* 00000442 */
label00000274:
00000274 486E FE2E pea.l [A6 - 0x1D2]
00000278 2F2E FF32 move.l -[A7], [A6 - 0xCE]
0000027C 4EAD 0292 jsr [A5 + 0x292]
00000280 2EAE FF4E move.l [A7], [A6 - 0xB2]
00000284 486E FE2E pea.l [A6 - 0x1D2]
00000288 A98F trap SetDialogItemText/SetIText
0000028A 486E FE2E pea.l [A6 - 0x1D2]
0000028E 2F2E FF2E move.l -[A7], [A6 - 0xD2]
00000292 4EAD 0292 jsr [A5 + 0x292]
00000296 2EAE FF52 move.l [A7], [A6 - 0xAE]
0000029A 486E FE2E pea.l [A6 - 0x1D2]
0000029E A98F trap SetDialogItemText/SetIText
000002A0 4257 clr.w [A7]
000002A2 2F3C 7379 7376 move.l -[A7], 0x73797376 /* 'sysv' */
000002A8 486E FE2A pea.l [A6 - 0x1D6]
000002AC 4EAD 00DA jsr [A5 + 0xDA]
000002B0 3C1F move.w D6, [A7]+
000002B2 202E FE2A move.l D0, [A6 - 0x1D6]
000002B6 0280 0000 FFFF andi.l D0, 0xFFFF
000002BC 0C80 0000 0700 cmpi.l D0, 0x700
000002C2 5C8F addq.l A7, 6
000002C4 6C0A bge +0xC /* 000002D0 */
000002C6 2F2E FF4A move.l -[A7], [A6 - 0xB6]
000002CA 3F3C FFFF move.w -[A7], 0xFFFF
000002CE A95D trap HiliteControl
label000002D0:
000002D0 0CAE 4150 504C FF2E cmpi.l [A6 - 0xD2], 0x4150504C /* 'APPL' */
000002D8 6600 009A bne +0x9C /* 00000374 */
000002DC 2F2E FF4A move.l -[A7], [A6 - 0xB6]
000002E0 3F3C FFFF move.w -[A7], 0xFFFF
000002E4 A95D trap HiliteControl
000002E6 4227 clr.b -[A7]
000002E8 A99B trap SetResLoad
000002EA 4267 clr.w -[A7]
000002EC 2F2E 0008 move.l -[A7], [A6 + 0x8]
000002F0 3F2E 000C move.w -[A7], [A6 + 0xC]
000002F4 4227 clr.b -[A7]
000002F6 A9C4 trap OpenRFPerm
000002F8 3D5F FF3E move.w [A6 - 0xC2], [A7]+
000002FC 0C6E FFFF FF3E cmpi.w [A6 - 0xC2], 0xFFFF
00000302 6622 bne +0x24 /* 00000326 */
00000304 486E FE2E pea.l [A6 - 0x1D2]
00000308 2F3C 0014 0080 move.l -[A7], 0x140080
0000030E 4EAD 017A jsr [A5 + 0x17A]
00000312 42A7 clr.l -[A7]
00000314 3F06 move.w -[A7], D6
00000316 486E FE2E pea.l [A6 - 0x1D2]
0000031A 4EAD 0082 jsr [A5 + 0x82]
0000031E 2E8C move.l [A7], A4
00000320 A982 trap CloseDialog
00000322 6000 011E bra +0x120 /* 00000442 */
label00000326:
00000326 486E FE2E pea.l [A6 - 0x1D2]
0000032A 4EBA FDF8 jsr [PC - 0x208 /* 00000124 */]
0000032E 3C00 move.w D6, D0
00000330 BE6E FF3E cmp.w D7, [A6 - 0xC2]
00000334 588F addq.l A7, 4
00000336 6706 beq +0x8 /* 0000033E */
00000338 3F2E FF3E move.w -[A7], [A6 - 0xC2]
0000033C A99A trap CloseResFile
label0000033E:
0000033E 1F3C 0001 move.b -[A7], 0x1
00000342 A99B trap SetResLoad
00000344 4A46 tst.w D6
00000346 6722 beq +0x24 /* 0000036A */
00000348 486E FE2E pea.l [A6 - 0x1D2]
0000034C 2F3C 0014 0080 move.l -[A7], 0x140080
00000352 4EAD 017A jsr [A5 + 0x17A]
00000356 42A7 clr.l -[A7]
00000358 3F2E FF3E move.w -[A7], [A6 - 0xC2]
0000035C 486E FE2E pea.l [A6 - 0x1D2]
00000360 4EAD 0082 jsr [A5 + 0x82]
00000364 4FEF 000A lea.l A7, [A7 + 0xA]
00000368 600A bra +0xC /* 00000374 */
label0000036A:
0000036A 2F2E FF52 move.l -[A7], [A6 - 0xAE]
0000036E 486E FE2E pea.l [A6 - 0x1D2]
00000372 A98F trap SetDialogItemText/SetIText
label00000374:
00000374 7A00 moveq.l D5, 0x00
00000376 6000 00C0 bra +0xC2 /* 00000438 */
label0000037A:
0000037A 486D 0232 pea.l [A5 + 0x232]
0000037E 486E FF40 pea.l [A6 - 0xC0]
00000382 A991 trap ModalDialog
00000384 302E FF40 move.w D0, [A6 - 0xC0]
00000388 6700 00AE beq +0xB0 /* 00000438 */
0000038C 6B00 00AA bmi +0xAC /* 00000438 */
00000390 5540 subq.w D0, 2
00000392 670A beq +0xC /* 0000039E */
00000394 6A00 00A2 bpl +0xA4 /* 00000438 */
00000398 7A01 moveq.l D5, 0x01
0000039A 6000 009C bra +0x9E /* 00000438 */
label0000039E:
0000039E 2F2E FF4A move.l -[A7], [A6 - 0xB6]
000003A2 3F3C FFFF move.w -[A7], 0xFFFF
000003A6 A95D trap HiliteControl
000003A8 486E FF3E pea.l [A6 - 0xC2]
000003AC 486E FE2E pea.l [A6 - 0x1D2]
000003B0 2F2E FF32 move.l -[A7], [A6 - 0xCE]
000003B4 4EBA FCDA jsr [PC - 0x326 /* 00000090 */]
000003B8 3C00 move.w D6, D0
000003BA 4A46 tst.w D6
000003BC 4FEF 000C lea.l A7, [A7 + 0xC]
000003C0 6728 beq +0x2A /* 000003EA */
000003C2 1F3C 0001 move.b -[A7], 0x1
000003C6 A99B trap SetResLoad
000003C8 486E FE2E pea.l [A6 - 0x1D2]
000003CC 2F3C 0014 0080 move.l -[A7], 0x140080
000003D2 4EAD 017A jsr [A5 + 0x17A]
000003D6 42A7 clr.l -[A7]
000003D8 3F2E FF3E move.w -[A7], [A6 - 0xC2]
000003DC 486E FE2E pea.l [A6 - 0x1D2]
000003E0 4EAD 0082 jsr [A5 + 0x82]
000003E4 4FEF 000A lea.l A7, [A7 + 0xA]
000003E8 604E bra +0x50 /* 00000438 */
label000003EA:
000003EA 486E FE2E pea.l [A6 - 0x1D2]
000003EE 4EBA FD34 jsr [PC - 0x2CC /* 00000124 */]
000003F2 3C00 move.w D6, D0
000003F4 BE6E FF3E cmp.w D7, [A6 - 0xC2]
000003F8 588F addq.l A7, 4
000003FA 6706 beq +0x8 /* 00000402 */
000003FC 3F2E FF3E move.w -[A7], [A6 - 0xC2]
00000400 A99A trap CloseResFile
label00000402:
00000402 1F3C 0001 move.b -[A7], 0x1
00000406 A99B trap SetResLoad
00000408 4A46 tst.w D6
0000040A 6722 beq +0x24 /* 0000042E */
0000040C 486E FE2E pea.l [A6 - 0x1D2]
00000410 2F3C 0014 0080 move.l -[A7], 0x140080
00000416 4EAD 017A jsr [A5 + 0x17A]
0000041A 42A7 clr.l -[A7]
0000041C 3F2E FF3E move.w -[A7], [A6 - 0xC2]
00000420 486E FE2E pea.l [A6 - 0x1D2]
00000424 4EAD 0082 jsr [A5 + 0x82]
00000428 4FEF 000A lea.l A7, [A7 + 0xA]
0000042C 600A bra +0xC /* 00000438 */
label0000042E:
0000042E 2F2E FF52 move.l -[A7], [A6 - 0xAE]
00000432 486E FE2E pea.l [A6 - 0x1D2]
00000436 A98F trap SetDialogItemText/SetIText
label00000438:
00000438 4A05 tst.b D5
0000043A 6700 FF3E beq -0xC0 /* 0000037A */
0000043E 2F0C move.l -[A7], A4
00000440 A982 trap CloseDialog
label00000442:
00000442 4CEE 10E0 FE1A movem.l A4,D7,D6,D5, [A6 - 0x1E6]
00000448 4E5E unlink A6
0000044A 4E75 rts
export_67:
0000044C 4E56 FFB2 link A6, -0x004E
00000450 2D6D FC98 FFB2 move.l [A6 - 0x4E], [A5 - 0x368]
00000456 2F2E FFB2 move.l -[A7], [A6 - 0x4E]
0000045A 486D FCC0 pea.l [A5 - 0x340]
0000045E 42A7 clr.l -[A7]
00000460 3F3C FFFF move.w -[A7], 0xFFFF
00000464 42A7 clr.l -[A7]
00000466 42A7 clr.l -[A7]
00000468 486E FFB6 pea.l [A6 - 0x4A]
0000046C 3F3C 0002 move.w -[A7], 0x2
00000470 A9EA trap Pack3
00000472 4A2E FFB6 tst.b [A6 - 0x4A]
00000476 670E beq +0x10 /* 00000486 */
00000478 3F2E FFBC move.w -[A7], [A6 - 0x44]
0000047C 486E FFC0 pea.l [A6 - 0x40]
00000480 4EBA FD4C jsr [PC - 0x2B4 /* 000001CE */]
00000484 5C8F addq.l A7, 6
label00000486:
00000486 4E5E unlink A6
00000488 4E75 rts